home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc A) / Acorn User China CD-ROM (UK) (Disc A).bin / DEMON / ACORN-STARTER / STARTERPACK.ARC / !DemConfig_Resources_TTFNconfig < prev    next >
Encoding:
Text File  |  1994-12-22  |  750 b   |  29 lines
  1. 10 REM BASIC text file to create TTFN Config file
  2. 20
  3. 30 user$="{userid}"
  4. 40 org$="{org}"
  5. 50
  6. 60 DIM c 268
  7. 61 FOR i=0 TO 267: c?i=0: NEXT
  8. 70 PROCt(c,org$)
  9. 80 PROCt(c+80,user$)
  10. 90 SYS "Territory_ReadCurrentTimeZone" TO ,csec%
  11. 100 c!100=csec% DIV 360000
  12. 110 c!108=10  :REM 9+sigtype
  13. 120 c!112=1   :REM NOT quote sigs
  14. 130 c!116=1   :REM NOT tagline
  15. 140 PROCt(c+120,"> ")
  16. 150 PROCt(c+125,"-- ")
  17. 160 PROCt(c+137,"In message %m %r wrote:")
  18. 170 c!192=10  :REM fg
  19. 180 c!196=7   :REM bg
  20. 190 c!200=80  :REM width
  21. 200 c!204=0   :REM NOT threaded
  22. 210 c!208=0   :REM show headers
  23. 220 PROCt(c+212,"In message %m you wrote:")
  24. 230
  25. 240 SYS "OS_File",10,"{dest}",&FFD,,c,c+268
  26. 250 END
  27. 260 REM Put zero-terminated text field
  28. 270 DEFPROCt(p,t$):$p=t$:?(p+LENt$)=0:ENDPROC
  29.